﻿
Partial Public Class callbackAction
    Private Shared Function finished_action(ByVal end_result As Boolean) As callbackAction
        Dim action As callbackAction = Nothing
        action = New callbackAction()
        action.begin_ticks() = Now.Ticks()
        action.check_ticks() = Now.Ticks()
        action.end_ticks() = Now.Ticks()
        action.finish_ticks() = Now.Ticks()
        action.to_finished()
        action.begin_result() = ternary.true
        action.check_result() = ternary.true
        action.end_result() = end_result
        Return action
    End Function

    Public Shared Function finished_success() As callbackAction
        Return finished_action(True)
    End Function

    Public Shared Function finished_failed() As callbackAction
        Return finished_action(False)
    End Function
End Class
